unit UframeDataBaseObjects;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes,
  Graphics, Controls, Forms, DB , DbTables,
  Dialogs, ComCtrls, Menus, ImgList;

type

  TDataTreeNode = class(TTreeNode)
  private
    FDataField: String;
    FDataSet: TDataSet;
    procedure SetDataField(const Value: String);
    procedure SetDataSet(const Value: TDataSet);

  published
    property DataSet : TDataSet read FDataSet write SetDataSet;
    property DataField : String read FDataField write SetDataField;
  end;//TdataTreeNode

  TTableTreeNode = class(TTreeNode)
  private
    FTableName: String;
    procedure SetTableName(const Value: String);

  published
    property TableName : String read FTableName write SetTableName;
  end;//TTableTreeNode

  TFieldTreeNode = class(TTreeNode)
  private
    Fvalue: String;
    FDataType: String;
    FFieldName: String;
    FonClick: TNotifyEvent;
    procedure SetDataType(const Value: String);
    procedure SetFieldName(const Value: String);
    procedure SetonClick(const Value: TNotifyEvent);
    procedure Setvalue(const Value: String);

  published
    property FieldName : String read FFieldName write SetFieldName;
    property DataType : String read FDataType write SetDataType;
    property value : String read Fvalue write Setvalue;
    property onClick : TNotifyEvent read FonClick write SetonClick;
  end;//TFieldNode

  TframeDataBaseObjects = class(TFrame)
    TreeViewObjects: TTreeView;
    PopupMenuDataBaseObjects: TPopupMenu;
    ImageListState: TImageList;
    ImageList: TImageList;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

implementation

{$R *.dfm}

{ TTableTreeNode }

procedure TTableTreeNode.SetTableName(const Value: String);
begin
  FTableName := Value;
end;

{ TDataTreeNode }

procedure TDataTreeNode.SetDataField(const Value: String);
begin
  FDataField := Value;
end;

procedure TDataTreeNode.SetDataSet(const Value: TDataSet);
begin
  FDataSet := Value;
end;

{ TFieldTreeNode }

procedure TFieldTreeNode.SetDataType(const Value: String);
begin
  FDataType := Value;
end;

procedure TFieldTreeNode.SetFieldName(const Value: String);
begin
  FFieldName := Value;
end;

procedure TFieldTreeNode.SetonClick(const Value: TNotifyEvent);
begin
  FonClick := Value;
end;

procedure TFieldTreeNode.Setvalue(const Value: String);
begin
  Fvalue := Value;
end;

end.
